home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / 'load address (.txt) next >
Commodore BASIC  |  2019-04-13  |  618b  |  23 lines
  1. 0 REM(null):REM   (null):REM  (null)
  2. 1 REM  (null):REM  (null):REM  (null)
  3. 2 POKE53280,11:POKE53281,11:POKE808,225:POKE775,200:REM
  4. 3 PRINT "[147]TO DISPLAY THE 'LOAD ADDRESS' OF A FILE":REM:REM(null):REM(null)
  5. 4 PRINT "INSERT DISK THEN ENTER":PRINT"NAME OF FILE ";:INPUTF$:REM(null)
  6. 5 PRINT:PRINT"LOAD ADDRESS:";:GOSUB20:REM(null)
  7. 12 PRINT"WANT A PRINTOUT?(Y/N)":REM(null)
  8. 13 GETK$:IFK$=""THEN13:REM(null)
  9. 14 IFK$="Y"THENGOSUB150:REM(null)
  10. 15 CLOSE1:REM(null)
  11. 16 PRINT"ANOTHER FILE?(Y/N)":REM(null)
  12. 17 GETX$:IFX$=""THEN17:REM(null)
  13. 18 IFX$="Y"THENGOTO3:REM(null)
  14. 19 SYS64738:REM(null)
  15. 20 OPEN1,8,3,"0:"+F$:REM(null)
  16. 21 GET #1,L$:GET#1,H$:REM(null)
  17. 22 X$=H$:GOSUB 100:H=X*256:X$=L$:GOSUB100:L=X:PRINTH+L:RETURN:REM(null)
  18. 100 IF X$="" THEN X=0:RETURN:REM(null)
  19. 110 X=ASC(X$):RETURN:REM(null)
  20. 150 OPEN4,4:PRINT#4,CHR$(14):CMD4:REM(null)
  21. 155 PRINTF$;"'S LOAD ADDRESS IS";H+L:REM(null)
  22. 156 PRINT#4:CLOSE4:RETURN:REM(null)
  23.